home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 46 / Amiga Format CD46 (1999-10-20)(Future Publishing)(GB)[!][issue 1999-12].iso / -in_the_mag- / reader_requests / scilab / demos / graphics / divers.dem.pos < prev    next >
Text File  |  1999-09-16  |  394b  |  23 lines
  1. mode(-1)
  2. oldln=lines()
  3. lines(0)
  4.  
  5. deff('[]=xdemo(info,str)',['x_message([info;str]);xbasc();';
  6.                            'execstr(str)']);
  7. xset("default");
  8.  
  9. exec('SCI/demos/graphics/divers-1.dem');
  10.  
  11.  
  12. nn=prod(size(str_l))
  13. driver("Rec");
  14. for i=1:nn,
  15.     xset("window",0)
  16.     execstr(str_l(i));
  17.     xbasimp([0],'dtest'+string(i),1);
  18.     xs2fig([0],'dtest'+string(i)+'.fig');
  19.     xbasc([0]);
  20. end
  21.  
  22.  
  23.